Twitter Coverage of the Lorne Genome Conference 2017

lorne_replies <- lorne %>% 
  filter(!is.na(in_reply_to_status_screen_name)) %>% 
  select(screen_name, in_reply_to_status_screen_name) %>% 
  graph.data.frame(directed = TRUE)

V(lorne_replies)$label <- V(lorne_replies)$name
V(lorne_replies)$id    <- V(lorne_replies)$name


write_graph(lorne_replies, file = "lorne_replies.graphml", format = "graphml")

lorne_mentions <- lorne %>% 
  filter(!is.na(mentions_screen_name)) %>% 
  select(screen_name, mentions_screen_name) %>% 
  mutate(mentions_screen_name = strsplit(mentions_screen_name, " ")) %>% 
  unnest(mentions_screen_name) %>% 
  graph.data.frame()

V(lorne_mentions)$label <- V(lorne_mentions)$name
V(lorne_mentions)$id    <- V(lorne_mentions)$name

write_graph(lorne_mentions, file = "lorne_mentions.graphml", format = "graphml")